home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Fast_Grid_204642252007.psc / Fast Grid Loading / Form1.frm < prev    next >
Text File  |  2007-02-05  |  2KB  |  79 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Fast Grid Loading"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3090
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Fast Load"
  14.       Height          =   495
  15.       Index           =   2
  16.       Left            =   840
  17.       TabIndex        =   2
  18.       Top             =   1920
  19.       Width           =   2895
  20.    End
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "Load Using Clip Function"
  23.       Height          =   495
  24.       Index           =   1
  25.       Left            =   840
  26.       TabIndex        =   1
  27.       Top             =   1200
  28.       Width           =   2895
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "Bound Grid To Recordset"
  32.       Height          =   495
  33.       Index           =   0
  34.       Left            =   840
  35.       TabIndex        =   0
  36.       Top             =   480
  37.       Width           =   2895
  38.    End
  39. End
  40. Attribute VB_Name = "Form1"
  41. Attribute VB_GlobalNameSpace = False
  42. Attribute VB_Creatable = False
  43. Attribute VB_PredeclaredId = True
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46.  
  47. Private Sub Command1_Click(Index As Integer)
  48.     If Index = 0 Then
  49.         frmBound.Show
  50.     ElseIf Index = 1 Then
  51.         frmClip.Show
  52.     Else
  53.         frmFast.Show
  54.     End If
  55. End Sub
  56.  
  57. Private Sub Form_Load()
  58.     Dim pConn As ADODB.Connection
  59.     Dim pRs As ADODB.Recordset
  60.     Dim i As Long
  61.     
  62.     'this is to append data to inventory table
  63.     'i do this because i dont want to upload large file
  64.     'my internet connection is slow :(
  65.     'so i append it when you show this form for first time
  66.     
  67.     Set pConn = New ADODB.Connection
  68.     pConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
  69.     Set pRs = New ADODB.Recordset
  70.     pRs.Open "select count(code) as reccount from inventory", pConn, adOpenForwardOnly, adLockReadOnly
  71.     If pRs!recCount < 2 Then
  72.         For i = 1 To 16
  73.             pConn.Execute "INSERT INTO inventory ( Code, Name ) " & _
  74.                         "SELECT Query2.expr1, Query2.expr2 " & _
  75.                         "FROM Query2", adExecuteNoRecords
  76.         Next
  77.     End If
  78. End Sub
  79.